home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Graphics / diagonal line < prev    next >
Encoding:
Text File  |  1986-10-24  |  455 b   |  27 lines  |  [TEXT/MSBB]
  1. PRINT "Diagonal Line"
  2.  
  3. start = TIMER   ' calculate the overhead
  4. FOR i% = 1 TO 40
  5.     FOR j% = 0 TO 200 STEP 3
  6.     NEXT j%
  7. NEXT i%
  8. finish = TIMER
  9. overhead = finish - start
  10.  
  11. start = TIMER
  12. FOR i% = 1 TO 40
  13.     FOR j% = 0 TO 200 STEP 3
  14.         LINE (i%,i%)-(i%+60,i%+80)
  15.     NEXT j%
  16. NEXT i%
  17.  
  18. finish = TIMER
  19.  
  20. PRINT "finish = ";finish
  21. PRINT "start  = ";start
  22. PRINT "Overhead = ";overhead
  23.  
  24. PRINT ((finish - start)-overhead); " seconds"
  25. WHILE INKEY$ = "" : WEND
  26.  
  27.